home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / menu.sites < prev    next >
Text File  |  2000-04-19  |  4KB  |  153 lines
  1. G4C
  2. ; $VER: menu.Sites Rev.022 © by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 100 80 "Site"
  4. WinType 00001000
  5. WinOnMouse 95 5
  6. WinBackGround IMAGE BG 0
  7. Winout "NIL:"
  8.  
  9. xOnLoad
  10.     if $*ADMIN = 0
  11.         SetGad #This 1 OFF
  12.         SetGad #This 2 OFF
  13.         SetGad #This 3 OFF
  14.     endif
  15.     lvuse HTMLEXT 1
  16.     EXTRACT %SiteSpiegelStat CLEAN spstat
  17.     if $spstat = "AUS"
  18.         SetGad #This 4 OFF
  19.         SetGad #This 5 OFF
  20.         SetGad #This 6 OFF
  21.     else
  22.         SetGad #This 4 ON
  23.         SetGad #This 5 ON
  24.         SetGad #This 6 ON
  25.     endif
  26.     EXTRACT %SiteBakArcDir CLEAN bakdir
  27.     if $bakdir = ""
  28.         SetGad #This 7 OFF
  29.         SetGad #This 8 OFF
  30.     else
  31.         SetGad #This 7 ON
  32.         SetGad #This 8 ON
  33.     endif
  34.     GuiOpen #This
  35.  
  36. ;=== Abbruch Button
  37. XButton 0 0 100 15 "Abbrechen [_X]"
  38.     GadFont xHelvetica.font 11 010
  39.     GadKey "x"
  40.     GuiQuit #This
  41.  
  42. XButton 0 15 100 15 "Umfang in kB"
  43.     GadFont xHelvetica.font 11 000
  44.     GuiClose #This
  45.     cli 'HTMLEXT:c/GetSize $*SITEDIR'
  46.     GuiQuit #This
  47.  
  48. XButton 0 35 100 15 "Neu"
  49.     GadFont xHelvetica.font 11 000
  50.     GadID 1
  51.     GuiClose #This
  52.     SetVar .htmlext.rqt "Neue Site aufnehmen ..."  ;Titel
  53.     SetVar .htmlext.rqb "Geben Sie den gewünschten NAmen ein:"  ;Body
  54.     SetVar .htmlext.rqd $aktSitename       ;Default
  55.     SetVar .htmlext.rqu "Weiter|Abbrechen"  ;Buttons
  56.     cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  57.     if $.htmlext.res = 1
  58.         ReqFile -1 -1 250 500 "Bitte Site Verzeichnis wählen ..." DIR sdir ""
  59.         SetVar aktSitename $.htmlext.tmp
  60.         lvuse HTMLEXT 1
  61.         lvadd ''
  62.         %SiteName = $aktSitename
  63.         %SitePath = $sdir
  64.         %SiteMail = ""
  65.         %SiteSubj = ""
  66.         %SiteFTPOL = ""
  67.         %SiteFTPWRK = ""
  68.         %SiteHistFile = ""
  69.         %SiteHistAuto = ""
  70.         %SiteServTyp = ""
  71.         %SiteSpiegelDir = ""
  72.         %SiteSpiegelStat = ""
  73.         %SiteHistAuto = ""
  74.         %SiteURLOL = ""
  75.         %SiteURLWRK = ""
  76.         lvsort %SiteName
  77.         lvsave htmlext:Settings/Sites.prefs
  78.         SetVar ndir $sdir
  79.         AppVar ndir "_hxt"
  80.         SetVar nvorldir $ndir
  81.         AppVar nvorldir "/defs"
  82.         SetVar nproj $ndir
  83.         AppVar nproj "/marks.hp"
  84.  
  85.         ifexists file $nproj
  86.             ;Nichts
  87.         else
  88.             cli 'makedir $ndir'
  89.             cli 'makedir $nvorldir'
  90.             cli 'copy htmlext:settings/defaults/proj.prefs to $nproj'
  91.             SetVar nprojdata $ndir
  92.             AppVar nprojdata "/marks.pd"
  93.             cli 'copy htmlext:settings/defaults/projdata.prefs to $nprojdata'
  94.         endif
  95.     endif
  96.     GuiQuit #This
  97.  
  98. XButton 0 50 100 15 "Einstellungen"
  99.     GadFont xHelvetica.font 11 000
  100.     GadID 2
  101.     GuiClose #This
  102.     GuiWindow HTMLEXT WAIT
  103.     GuiWindow #This WAIT
  104.     Guiload htmlext:gui/Siteprefs
  105.     GuiQuit #This
  106.  
  107. XButton 0 65 100 15 "Löschen"
  108.     GadFont xHelvetica.font 11 000
  109.     GadID 3
  110.     GuiClose #This
  111.     EZReq "Site löschen: Was wollen Sie löschen?\n\nNur Eintrag:\nNur der Eintrag in der Sitenliste wird entfernt,\ndabei gehen jedoch die Einstellungen verloren!\n\nEintrag & Markierungen:\nWie oben, zus. alle dazugehörigen Projektdaten\n\nAlles:\nWie Punkt 2, zusätzlich noch die\nreal existierenden HomePage Dateien!" "_1 Eintrag|_2 Eintrag & Markierungen|_3 Alles|[_X] Nein" "wirkl"
  112.     if $wirkl = 1
  113.         lvuse HTMLEXT 1
  114.         LVDel -1
  115.         lvsort %SiteName
  116.         lvsave htmlext:Settings/Sites.prefs
  117.     elseif $wirkl = 2
  118.         cli 'delete $*SITEPROJ $*SITEPROJDATA'
  119.         SetVar aktnote $*SITEDIR
  120.         AppVar aktnote "_"
  121.         AppVar aktnote $*SITENAME
  122.         AppVar aktnote ".note.#?"
  123.         cli 'delete $aktrap'
  124.         SetVar aktrap $*SITEDIR
  125.         AppVar aktrap "_"
  126.         AppVar aktrap $*SITENAME
  127.         AppVar aktrap ".rap.#?"
  128.         cli 'delete $aktrap'
  129.         lvuse HTMLEXT 1
  130.         LVDel -1
  131.         lvsort %SiteName
  132.         lvsave htmlext:Settings/Sites.prefs
  133.     elseif $wirkl = 3
  134.         cli 'delete $*SITEPROJ $*SITEPROJDATA'
  135.         SetVar aktnote $*SITEDIR
  136.         AppVar aktnote "_"
  137.         AppVar aktnote $*SITENAME
  138.         AppVar aktnote ".note.#?"
  139.         cli 'delete $aktrap'
  140.         SetVar aktrap $*SITEDIR
  141.         AppVar aktrap "_"
  142.         AppVar aktrap $*SITENAME
  143.         AppVar aktrap ".rap.#?"
  144.         cli 'delete $aktrap'
  145.         cli 'delete $*SITEDIR'
  146.         lvuse HTMLEXT 1
  147.         LVDel -1
  148.         lvsort %SiteName
  149.         lvsave htmlext:Settings/Sites.prefs
  150.     endif
  151.     GuiQuit #This
  152.  
  153.